home *** CD-ROM | disk | FTP | other *** search
/ Aminet 28 / Aminet 28 (1998)(GTI - Schatztruhe)[!][Dec 1998].iso / Aminet / util / rexx / rxcmanager.lha / rxcmanager / examples / find.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1998-10-15  |  623 b   |  35 lines
  1. /*
  2.     FIND ALL ENTRY IN "USER" AND "WWW" GROUP
  3. */
  4.  
  5. if ~show("L","rxcmanager.library") then
  6.     if ~addlib("rxcmanager.library",0,-30) then do
  7.         say "no rxcmanager.library"
  8.         exit
  9.     end
  10.  
  11. parse arg key
  12.  
  13. k = "#?"key"#?"
  14.  
  15. patt.Name    = k
  16. patt.WWW     = k
  17. patt.Comment = k
  18.  
  19. num = CMFind("USER WWW","REC","PATT",1)
  20. if num=0 then do
  21.     say "No entry found for '"key"'"
  22.     exit
  23. end
  24.  
  25. say "Found" num "entry:"
  26. do i=0 to num-1
  27.     say
  28.     say "Type:     " rec.i.Type
  29.     say "Name:     " rec.i.Name
  30.     say "WWW:      " rec.i.WWW
  31.     say "Comment:  " rec.i.Comment
  32.     if rec.i.Type="WWW" then say "WebMaster:" rec.i.WebMaster
  33.     say "EMail:    " rec.i.EMail
  34. end
  35.